home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 02 (1990-02)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 02 (1990-02)(MindCraft Publishing)(Side A)[a].po / PYRAMID.bas < prev    next >
BASIC Source File  |  1996-12-24  |  321b  |  1 lines

  1. 1  HGR : HOME : FLASH : POKE 49167,0: FOR C = 99 TO 0  STEP  -2: FOR B = 0 TO 15:A =  RND(C) *114 +4: POKE 228,A *(C >3): HPLOT 280 -A,159 TO 0,99 TO 99 -C,C TO 99 +C,C: VTAB 21: PRINT "bc";: HTAB A: PRINT "NFGN": NEXT B,C: FOR D = 0 TO 1: POKE 243,32 *D: PRINT "^^^ TUTANKHAMON CONSTRUCTION COMPANY ^^^";: NEXT : NORMAL